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ZTITLE “EDTSUEXACASE = match strings of equal length’ 
MODULE EDTSUEXACASE ( ! Mat r 
pbent = 'V04-000' ie 
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$-32 Fed Page 1 
TER: CEDT. SRC JUEXACASE.BLI;1 (1) 


th 
Edit: JBS1005 
BEGIN 


RRR RRA EAAEAAAAAAAAAAERERAAAEAEEEAAAAAEAAAAAAAAAAAAAAAAAAETEREREReReeeAReee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 
® 
® 
4 ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
® 
® 
® 
® 
® 
® 
® 
x 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oerokat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!t DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'e4 
! FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 

Exact case matching. 
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ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: February 7, 1978 
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? MODIFIED BY: 
re! 1-001 - Original. DJS 19-FEB-1981. This module was created by 


pag hand routine EDTSSSTR_CMP from module UTIL. 

1-002 - Regularize headers. JBS Ti-Mar-1981 

1-005 - Add a parameter, to eliminate the other ete ing compare routines, 
and add two new search Syeee. This amounts to support of the 
DEC my tinational character set. JBS 20-Jul- 

1-008 - Put VT220 support under a conditional. JBS 1onF ob- 1383 

1-005 - Make unimplemented searches = general. JBS 14-Feb-19 
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EDTSUEXACASE EDTSUEXACASE = match strings of equal length 1hese -1984 01:58:24 VAX-11 Bliss-32 V4.0-74 Page 2 
ett Declarations . : ° 12-8 08-138e 93:38:98 PEEKSUMGMASTERSCEDT  SRCTUEXACASE .BLIe 4” (2) 
: 5 ¢ } SBTTL "Declarations' | : 
; ? $ 1 | TABLE OF CONTENTS: | ; 
: 59 th ; 
: $0 39 ] REQUIRE *EDTSRC: TRAROUNAN' ; | 
; 6¢ 99 1 FORWARD ROUTINE : 
: o? 2 : : EDTSSSTR_CMP; ! Compare two strings, of equal Length : 
> 65 ¢ 1! 
; 66 1 | INCLUDE FILES: : 
3 6 1! 3 
3; 8 505 1 ; 
; $9 05 REQUIRE ‘EDTSRC:EDTREQ’; ; 
; 4 Ose LIBRARY "EDTSRC: TRANSLATE’; : 
: ie D644 1 LIBRARY "EDTSRC:SUPPORTS’; 3 
4 74 > 3 
; B B96 1! 3 
; 064 1 ' MACROS: ; 
3 77 648 1! : 
: «678 649 1! NONE F 
3 79 $0 1! 3 
; 80 51 1 ' EQUATED SYMBOLS: ; 
; 81 $636 1! 3 
; Sg 0655 1! NONE 3 
; 8 0654 1! 3 
; (84 0655 1 | OWN STORAGE: 
; 85 Boze 1! 
3.6 68S 0657 1! NONE 
-. Or bees ss 
; | «88 659 1 | EXTERNAL REFERENCES: 
3 89 0660 1! 
3 90 0661 1! In the routine 
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VAX-11 Bliss-32 V4 
CMP = compare two strings of equal le 14-Sep- DISKSVMSMASTER 
ZSBTTL 'EDTSSSTR_CMP = compare two strings of equal length’ 


nae Boyt ine EDTSSSTR_CMP ( ! Compare two strings of equal length 


OURCE, ! Pointer to source string 
OBJECT, ' Pointer to object string 
OBJ_LEN, ' Length of both strings 
oes ! Type of match 

= 


‘4 
' FUNCTIONAL DESCRIPTION: 


This routine compares two strings of equal length. There are several 
types of comparison that can be done. 


i FORMAL PARAMETERS: 

i SOURCE Pointer to the source string. 
OBJECT Pointer to the object string. 
OBJ_LEN Length of both strings. 


MATCH The type of matching: 0 = general, 1 = exact, 2 = WPS, 
3 = case_insensitive, 4 = diacritical_insensitive 


' 
T 
' 
' 
1 
| 
i] 
1 
' 
{ 
1 
1 
t 
! 
1 
' 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
| Returns one if the strings match, zero if not. 
SIDE EFFECTS: 
NONE 
t 
BEGIN 
ZIF SUPPORT_VT220 
ZTHEN 
EXTERNAL 
EDT$$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE]; ! Information about characters 


BIND 
GENERAL_TABLE = UPLIT (BYTE (CHAR_GENERAL)) : VECTOR (256, BYTE); 


BIND 
CI_TABLE = UPLIT (BYTE (CHAR_CI)) : VECTOR (256, BYTE); 
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BIND 
DI_TABLE = UPLIT (BYTE (CHAR_DI)) : VECTOR (256, BYTE); 


2FI 
CASE .MATCH FROM O TO 4 OF 
SET 


CO 
XIF_( NOT SUPPORT_VT220) 
THEN 


% 
a Be 4 
2FI 


SQN SNS Oo 


! General: disregard both the case of letters and diacritical marks 


OP = .OBJECT; 
SP = SOURCE; 
ASSERT ((.SP NEQA 0) AND (.0P NEQA 0)); 
DECR_I FROM .OBJ_LEN - 1 TO 0 DO 
BEGIN 


SUPPORT vT220 


vee 
a 
z= 
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IF (.GENERAL_TABLE CCHSRCHAR_A (SP)] NEQ .GENERAL_TABLE CCHSRCHAR_A (OP)]) THEN RETURN (0); 


LOCAL 
# 
oc; 


SC = CHSRCHAR_A (SP); 
OC = CHSRCHAR-A (OP); 


IF ((.SC GEQ 2C*°a*) AND (.SC LEQ %C*z")) THEN SC = .SC = 2C'a’ + ZC°A’; 
IF ((.0C GEQ %C*a*) AND (.0C LEQ %C*z")) THEN OC = .OC = 2C'a® + XC°A’; 
IF (.SC NEQ .OC) THEN RETURN (0); 
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2FI 
END; 
END; 
(1) : ! Exact match 
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EDT SSeTR CCAP - compare tus strings of equal le 1 ~Sep-19 4 95:38:93 DLSKSVMGMASTERSLEDT. SRCTUEXACASE .BLIe 4? “4 
77 
He IF ( NOT CHSEQL (.OBJ_LEN, .SOURCE, .OBJ_LEN, .OBJECT)) THEN RETURN (0); 
19 id (2) : | 
781 i Ps matching: if the object (model) character is a lower case letter, 
7 ¢ ! the source character may be either upper or lower case. 
f ? ; Otherwise, an exact match is required. | 
97 Br BEGIN 
se LOCAL 
786 SP, 
789 OP, 
1444 oc; 
O78 4 ZIF (SUPPORT_WPS AND SUPPORT_VT220) 
079 ZTHEN 
0794 OP = .OBJECT; 
0795 SP = .SOURCE; 
144 ASSERT ((.SP NEQA 0) AND (.0P NEQA 0)); 
1444 i DECR I FROM .OBJ_LEN - 1 TO 0 DO 
tt 2 OC = CHSRCHAR_A (OP); 
0802 4 IF .EDTS$B_CHAR_INFO C.OC, 0, 0, 1, 0J ! If OC is lower case 
0803 4 THEN 
Bape 2 BEGIN 
Bane 2 IF (.CI_TABLE C.OC] NEQ .CI_TABLE CCHSRCHAR_A (SP)]) THEN RETURN (0); 
0808 5 END 
0809 4 ELSE 
ait a 
Bag 2 IF (.0C NEQ CHSRCHAR_A (SP)) THEN RETURN (0); 
0814 4 END; 
0815 4 
te END; 
Ost ZELSE 
; 0 2FI 
821 
§ END; 
4 ZIF SUPPORT_VT220 
5 ZTHEN 
$ (3) : ! Case-insensitive matching 
$ BEGIN 
0 LOCAL | 
; 1 SP, 
2 OP; | 
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D 16 
EDTSUEXACASE = match strings of equal length 16-Sep-1984 01:58:24 VAX-11 Bliss-32 v4 300 sne4 age 
v04-000 EDTSSSTR_CMP = compare two strings of equal le 14- ~Sep-1984 12:25:12 DISKSVMSMASTER: CEDT.SRCJUEXACASE .BLI; ? 
; 307 pare 1 END ! of module EDTSUEXACASE 
; 308 +t 1 
09 0878 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
;  EDTSCODE 1006 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
er ee | ie ce a a Symbols --<------ Pages Processing 
$ File Total Loaded Percent Mapped Time 
: _$255$DUA28: (EDT. SRCJEDT.L32;1 377 1 0 40 00:00.2 
; _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; ggeuacs: EDT.SRC TRANSLATE -432;1 6 3 50 57 es 
: 7$255$pUA28:CEDT.SRCISUPPORTS.L 32; 1 2 2 100 5 0:00.1 
: COMMAND QUALIFIERS 
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; Size: 238 co : + 768 data bytes 
; Run Time: 329-6 

: Fi apeed Time: 0:30. 
; Lexenes/CPU-Min: 12894 


Memor "Y Used: 185 pages 
; Compilation Complete 
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